home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 20 / Tiger_Disk_020_19xx_Tiger-Crew-Disk_de_Side_C.d64 / leonardo 2001 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  129 lines
  1. 0 poke 53280,0:poke53281,0:print"[147][152]"
  2. 1 print"[147]":goto 35
  3. 2 :
  4. 3 rem turbo input entwickelt von daniel       himmel / 1993
  5. 4 :
  6. 5 le=34
  7. 7 i$="":x$="":p=0
  8. 9 te$=">":poke 214,peek(214)+1:poke 211,2-len(te$)-1
  9. 11 sys 58732
  10. 13 print te$;" ";:p=0:bs=1
  11. 15 poke204,0:poke198,0:wait198,1:getx$:poke207,0:poke204,1:print" [157]";:ifx$="[137]"theni$="f[166]_":return
  12. 17 ifp>0thenifasc(x$)=20theni$=left$(i$,len(i$)-1):print"[157] [157]";:p=p-1:goto15
  13. 19 ifasc(x$)=13goto29
  14. 21 ifp=legoto15
  15. 25 ifbs=1thenif(x$<" "or(x$>chr$(127)))thenifx$<chr$(160)goto15
  16. 27 printx$;:i$=i$+x$:p=p+1:goto15
  17. 29 print chr$(13)
  18. 31 return
  19. 33 :
  20. 35 if a=0 then a=1:load"leonardo sprt",8,1
  21. 36 if a=1 then a=2:load"leonardo char",8,1
  22. 37 vi=53248:pokevi,32:pokevi+1,48:pokevi+2,80:pokevi+3,48:pokevi+4,112
  23. 38 pokevi+5,48:pokevi+6,32:pokevi+7,90:pokevi+8,80:pokevi+9,90:pokevi+10,112
  24. 39 pokevi+11,90:pokevi+12,32:pokevi+13,132:pokevi+14,80:pokevi+15,132
  25. 40 pokevi+21,255:pokevi+23,255:pokevi+28,255:pokevi+29,255:pokevi+32,0
  26. 41 pokevi+33,0:pokevi+37,242:pokevi+38,250:pokevi+39,249:pokevi+40,249
  27. 42 pokevi+41,249:pokevi+42,249:pokevi+43,249:pokevi+44,249:pokevi+45,249
  28. 43 pokevi+46,249
  29. 44 poke52216,192:poke52217,193:poke52218,194:poke52219,195:poke52220,196
  30. 45 poke52221,197:poke52222,198:poke52223,199:poke53272,33:poke56576,0:poke648,200
  31. 46 :
  32. 50 gosub 110
  33. 51 for jh=1 to 4:print""
  34. 52 for we=1 to 14:printchr$(13)" "tab(20);:read ew$:getq$:ifq$="_" then 55
  35. 53 foroi=1to17:print"[145]"tab(20)""mid$(ew$,1,oi)"[146]":forty=0to2:nextty:nextoi:next
  36. 54 poke198,0:wait198,1:poke198,0:next
  37. 55 :
  38. 60 data "[200]allo, ich bin  "
  39. 61 data "[155][204]eonardo, kurz  "
  40. 62 data "[152][204]eo genannt. [201]ch"
  41. 63 data "[151]bin nicht die   "
  42. 64 data "[152][211]choene auf dem "
  43. 65 data "[155][194]ild, sie ist   "
  44. 66 data "meine [214]erlobte! "
  45. 67 data "[155][197]igentlich war  "
  46. 68 data "[152]sie es, den vor "
  47. 69 data "[151]kurzem wurde sie"
  48. 70 data "[152]von [211]pace-      "
  49. 71 data "[155][205]utanten geraubt"
  50. 72 data "                "
  51. 73 data "[155]<[212]aste.........>"
  52. 74 rem ------- next page ! -------
  53. 75 data "und auf eine    "
  54. 76 data "[155]einsame [201]nsel   "
  55. 77 data "[152]verschleppt. [206]un"
  56. 78 data "[151]versuche ich    "
  57. 79 data "[152]heldenhafter-   "
  58. 80 data "[155]weise sie zu    "
  59. 81 data "retten, und du  "
  60. 82 data "[155]wirst mir dabei "
  61. 83 data "[152]helfen! ([200]offe  "
  62. 84 data "[151]ich doch stark!)"
  63. 85 data "[152]                "
  64. 86 data "[155][196]as [193]benteuer   "
  65. 87 data "beginnt!        "
  66. 88 data "[155]<.........[212]aste>"
  67. 89 rem ------ next page! ------
  68. 90 data "[195]redits:        "
  69. 91 data "[155]                "
  70. 92 data "[152][208]rogrammierung  "
  71. 93 data "[151]   [196]aniel [200]immel"
  72. 94 data "[152]                "
  73. 95 data "[155][199]rafik und [211]ound"
  74. 96 data "  [196]aniel [200]immel&"
  75. 97 data "[155][211]omebody [213]nknown"
  76. 98 data "[152]                "
  77. 99 data "[151][201]dee und [203]onzept"
  78. 100 data "[152]   [196]aniel [200]immel"
  79. 101 data "[155]                "
  80. 102 data "[208]ublic [196]omain ! "
  81. 103 data "[155]<[212]aste.........>"
  82. 104 :
  83. 105 goto 130
  84. 106 :
  85. 110 rem "[212]itel !"
  86. 111 print"[147]                   [158][200][201][212] _ [212][207] [197][206][196] [201][206][212][210][207]!"
  87. 112 print"[152]      [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"chr$(8)
  88. 114 print"      [221][158] [204]eonardo 2001 - [196]ie [207]dysee [152][221][151] [146][152]"
  89. 116 print"      [221][159] [196]irected by  [196]aniel [200]immel [152][221][151] [146][152]"
  90. 118 print"      [221]    [208]roduced in  1994 by    [152][221][151] [146][152]"
  91. 120 print"      [221][150]       [176][192][192][192]      [192][192][192][174]       [152][221][151] [146][152]"
  92. 122 print"      [221][150]       [171][192][179][203]ultsoft[150][171][192][179]       [152][221][151] [146][152]"
  93. 124 print"      [221][150]       [173][192][192][192]      [192][192][192][189]       [152][221][151] [146][152]"
  94. 126 print"      [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][151] [146][152]"
  95. 127 print"       [151]                              [146][145][145][145][145]"
  96. 128 return
  97. 129 :
  98. 130 poke 53248+21,0
  99. 132 print"[147][152]"
  100. 133 goto 400
  101. 134 :
  102. 135 data "[193]m [197]nde des     "
  103. 136 data "[155][211]pieles erwartet"
  104. 137 data "[152]dich etwas ganz "
  105. 138 data "[151]besonderes, nie "
  106. 139 data "[152]dagewesenes!    "
  107. 140 data "[155][197]in kleiner [212]ip:"
  108. 141 data "[197]s hat etwas mit"
  109. 142 data "[155]meiner [214]erlobten"
  110. 143 data "[152]zu tun!         "
  111. 144 data "[151]                "
  112. 145 data "[152][206]a? [201]nterssiert?"
  113. 146 data "[155][196]ann zock das   "
  114. 147 data "[193]dventure !     "
  115. 148 data "[155]<.........[212]aste>"
  116. 149 :
  117. 150 print" [152][204]oading...[146][145][145][145][145][145][145][145]"
  118. 151 :
  119. 152 print"[144]load"chr$(34)"leonardo fstl"chr$(34)",8:"
  120. 153 print:print:print:print:print"run:"
  121. 154 print:print:print"load"chr$(34)"leonardo show"chr$(34)",8:"
  122. 155 print:print:print"run:"
  123. 156 poke198,5:poke631,19:poke632,13:poke633,13::poke634,13:poke635,13:end
  124. 400 print" [152][204]oading...[146][145][145][145][145][145][145][145]"
  125. 401 print"[144]load"chr$(34)"leonardo show"chr$(34)",8:"
  126. 402 print:print:print:print:print"run:"
  127. 404 poke198,3:poke631,19:poke632,13:poke633,13:end
  128. 0 
  129.